home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_TOOLS / VBCOUNT.ZIP / TESTMOD.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-03-26  |  418 b   |  22 lines
  1. Option Explicit
  2.  
  3. Dim TestVar%
  4.  
  5. Sub TestProc ()
  6.     'This is a comment, followed by a blank line
  7.  
  8.     TestVar = 1 'line end comment isn't included
  9.     TestVar = 2 '(but space before it is in byte count)
  10.     TestVar = 3
  11.     TestVar = 4
  12.     TestVar = 5
  13.     TestVar = 6
  14.     TestVar = 7
  15.     TestVar = 8
  16.     TestVar = 9
  17.     TestVar = 10
  18.  
  19.         'TestProc module shud be 14 lines and 190 bytes
  20. End Sub
  21.  
  22.